home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_402_DoMenuItem.File < prev    next >
Encoding:
Text File  |  1992-04-08  |  661 b   |  33 lines
  1. %if MenuItemName = New%
  2. %elsif MenuItemName = Open%
  3. %elsif MenuItemName = Close%
  4. %elsif MenuItemName = Save%
  5. %elsif MenuItemName = SaveAs%
  6. %elsif MenuItemName = Quit%
  7. %elsif MenuItemName = Revert%
  8.     {----------}
  9.     Procedure DoRevert;
  10.     var
  11.         fileName:        Str255;
  12.         ok:                boolean;
  13.     Begin
  14.         ok := true;
  15.         if cur^.dirty then begin
  16.             GetWTitle (curWindow, fileName);
  17.             ParamText (fileName, '', '', '');
  18.             ok := Confirm (RevertID);
  19.         end;
  20.         if ok then begin
  21.             cur^.dirty := false;
  22.             DisposeAppData;
  23.             if cur^.fileNum <> 0 then begin
  24.                 ReadAppFile (cur^.fileNum);
  25.             end;
  26.             InvalRect (curWindow^.portRect);
  27.         end;
  28.     End; {DoRevert}
  29.  
  30. %else%
  31.     %DoMenuItem%
  32. %end if%
  33.